* replace.el (occur-engine): Distinguish between one and several
authorJohn Paul Wallington <jpw@pobox.com>
Sun, 11 Apr 2004 04:57:02 +0000 (04:57 +0000)
committerJohn Paul Wallington <jpw@pobox.com>
Sun, 11 Apr 2004 04:57:02 +0000 (04:57 +0000)
matches in the matches per buffer heading.

lisp/replace.el

index d8d642261e49a45bfdd4e7b12827777256c45713..2d26cb5cc666583f9ff6ac7572c45d82dc7d1c9a 100644 (file)
@@ -916,8 +916,9 @@ See also `multi-occur'."
                (goto-char headerpt)
                (let ((beg (point))
                      end)
-                 (insert (format "%d matches for \"%s\" in buffer: %s\n"
-                                 matches regexp (buffer-name buf)))
+                 (insert (format "%d match%s for \"%s\" in buffer: %s\n"
+                                 matches (if (= matches 1) "" "es")
+                                 regexp (buffer-name buf)))
                  (setq end (point))
                  (add-text-properties beg end
                                       (append